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Ta vee - MACRO DEFINITIONS FOR FAL 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND soriee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. nish wast? OR ANY OTHER 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO — Wik te HES 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG PMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: FAL (DECnet File Access Listener) 

Abstract: 


This module contains MACRO definitions that are placed in FAL.MLB for 
use by FAL source modules. 


Environment: VAX/VMS, user mode 


Author: James A. Krycka, Creation Date: 16-JUN-1977 
Modified By: 
v03-001 JAK0136 JAKr saa. 07-MAR-1984 


Change CHECK_SS to $CH HECK 
Chnage CHECK"RMS to SCHECR STATUS. 
Change QBLOCR to $QBLOCK. 


Be Oe Be Oe Be Be Se Be Oe Oe Se Oe Oe Se SHH He Be Oe oe 
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-SBTTL CODE GENERATION MACROS 


p++ 
; SSETBIT sets a single bit in a field. 


.MACRO $SETBIT POS,BASE, ?DISPL 
BBSS POS, BASE, DISPL 


-ENDM $SETBIT 


DISPL: 


p++ 
; SCLRBIT clears a single bit in a field. 


.MACRO $CLRBIT POS,BASE, ?DISPL 
BBCC  POS,BASE,DISPL 


-ENDM SCLRBIT 


DISPL: 


soe 
; SMAPBIT maps the Soa tonpteg bit from R1 into the designated bit in R2. 
; The bit is set in R2 only if the corresponding bit is set in R1. 


.MACRO $MAPBIT SRCBIT,DSTBIT, ?7LABEL 
BBC #SRCBIT,R1, LABEL 
BBCS #DSTBIT.R2.LABEL 


-ENDM SMAPBIT 


LABEL: 


3 ¢@ 

; SZERO_FILL writes zeroes into the specified buffer. On completion RO-R5 are 
; destroyed (with R3 containing the address of one byte beyond the buffer). 

; The default is to zero 512 bytes (one page) at the specified address. 


MACRO $ZERO_FIL 
mMOVCS #0,DST,#0 


DST=,SIZE=#512 
1ZE 0S 
.ENDM = $ZERO_FIL 


L 
-SIZE,DST 

L 

4 

; SCHECK_SS calls a subroutine that checks the status code in RO and takes 
3; appropriate action. This MACRO is intended to check the results of a call 
3 to a System Service. " 


«MACRO $CHECK_SS 
BSBw FALSCHECK_SS 
-ENDM $CHECK_SS 


ste 

; SCHECK_STATUS calls a subroutine that checks the status code in RO and takes 
3; appropriate action. This MACRO is intended to check the results of a FAL 

; logging operation where a failure should not result in an image exit. 


V0« 
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«MACRO S$CHECK_STATUS 
BSBW FALSCHECK_STATUS 
-ENDM  $CHECK_STATUS 


++ 


: SQBLOCK generates a quadword de:criptor block followed by the character string 
; itself and/or allocated space. 


-MACRO SQBLOCK TEXT,SPACE=0,BUFADR, ?LABEL1, ?LABEL2 
.LONG LABELO-LABEL1 
[LONG LABEL 
-IF NB BUFADR 
BUF ADR==. 
ENDC 
LABEL1: 
.IRP —s STR 


<TEXT> 
“ASCII \STR\ 
NDR 


-IF NE SPACE 
a? SPACE 


LABEL2: 
-FNOM $QBLOCK 


te 

SCASEB, SCASEW, and SCASEL generate a CASEB, CASEW, CASEL instruction, 

deg HEE followed by the case displacement table. The parameters for 
are: 


SELECTOR= the selector operand 
BASE = the base operand 
DISPL = the case displacement List 


Note: There is no LIMIT operand because the Limit value is calculated from 
the number of entries specified in the case displacement List. 


Note: These MACRO definitions place BASE after SELECTOR and DISPL so that. 
BASE can be omitted when keywords are not used in the MACRO invocation. 


eac 


.MACRO 3CASEB SELECTOR,DISPL,BASE=#0 
$CASE SELECTOR, <D1SPL> BASE. TYPE=B 


-MACRO S$CASEW SELECTOR,DISPL,BASE=#0 
SCASE SELECTOR,<DISPL>.BASE, TYPE=W 
NDM  $CASEW 


-MACRO SCASEL SELECTOR,DISPL,BASE=#0 
SCASE SELECTOR, <DISPL>.BASE, TYPE=L 


jt 
; SCASE is a support MACRO used by $CASEB, SCASEW, and S$CASEL. 


FAI 
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Note: 


Note: 


TABLE: 


SCASE generates a CASECB/W/L] instruction followed by the case displacement 
table. The parameters for the MACRO are: 


TYPE = eperent datatype of B, W, or L 
SELECTOR= the selector operand 

BASE = the base operand 

DISPL = the case displacement List 


There is no LIMIT operand because the Limit value is calculated from 
the number of entries specified in the case displacement List. 


This MACRO definition places SELECTOR and DISPL ahead of BASE and TYPE 


so that the latter two can be omitted when keywords are not used in the 
MACRO invocation. 


.MACRO. $CASE SELECTOR, DISPL,BASE=#0,TYPE=B, ?TABLE 
$$COUNT=0 

.IRP EP, <DISPL> 

SSCOUNT=SSCOUNT*+1 

cIF EQ,$$COUNT 

-ERROR ; **** case displacement List is null eee ; 
ENDC 

CASE "TYPE SELECTOR, BASE ,#<S$$COUNT-1> 


- IRP EP, <DISPL> 
-WORD  EP=-TABLE 


-ENDR 
-ENDM $CASE 
END ; End of module 
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